{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=      ListPrograms      
{End}
Const HKLM = &H80000002
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Set objReg = GetObject("winmgmts://./root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
For Each strSubkey In arrSubkeys
  If objReg.GetStringValue(HKLM, strKey & strSubkey, "DisplayName", strValue) <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", strValue
  End If
    N = "" & strValue
    i=i+1
  publication.nbSetVar "[%0]",i
  publication.nbSetVar "[ListPrograms[%0]]",N
  
 
Next
